home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / tpascal.arc / PARAMS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-04-01  |  640 b   |  19 lines
  1. Program Params;
  2.  
  3. { by Paul Klarreich, Brooklyn, NY }
  4.  
  5. { Find the parameter string.  In any MS-DOS program file, it is
  6.   found at offset $80 in the program segment prefix -- the first
  7.   $100 bytes of the program segment.  The byte at $80 gives the
  8.   length of the string and the next <length> bytes are the actual
  9.   characters. }
  10.  
  11. { NOTE: This program is meaningless unless compiled to a COM-file. }
  12.  
  13. Var CmdStr: String[80] Absolute CSeg:$0080;
  14.  
  15. Begin
  16.   Writeln('The command tail for this program is:');
  17.   Writeln('-->',CmdStr,'<--');
  18. End.
  19.